home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_6 / issue_03 / pipeline / Easter / c_Easter2 next >
Encoding:
Text File  |  1992-08-13  |  2.0 KB  |  78 lines
  1. %OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938 
  2. %OP%TNN
  3. %OP%WRN
  4. %OP%DP0
  5. %OP%IRN
  6. %OP%PL0
  7. %OP%HM0
  8. %OP%FM0
  9. %OP%BM0
  10. %OP%LM4
  11. %OP%PT1
  12. %OP%PDPipeLine
  13. %OP%WC2,2262,44,388,0,1,0,2
  14. %OP%NDgolden,B7
  15. %OP%NDcentury,B8
  16. %OP%NDnon_leap_cent_correction,B9
  17. %OP%NDmoon_correction,B10
  18. %OP%NDfind_sunday,B12
  19. %OP%NDepact,B13
  20. %OP%NDfull_moon,B14
  21. %OP%NDeaster_day,B15
  22. %OP%NDjulian_to_gregorian,B11
  23. %OP%FR0,2
  24. %CO:A,46,104%Comments and Commands
  25.  
  26.  
  27.  
  28. %V%%L%function("easter","year")
  29.  
  30. %V%%L%set_name("golden",B7)
  31. %V%%L%set_name("century",B8)
  32. %V%%L%set_name("non_leap_cent_correction",B9)
  33. %V%%L%set_name("moon_correction",B10)
  34. %V%%L%set_name("julian_to_gregorian",B11)
  35. %V%%L%set_name("find_sunday",B12)
  36. %V%%L%set_name("epact",B13)
  37. %V%%L%set_name("full_moon",B14)
  38. %V%%L%set_name("easter_day",B15)
  39.  
  40. %V%%L%set_value(julian_to_gregorian,1582)
  41.  
  42. %V%%L%set_value(golden,1+mod(@year,19))
  43. %V%%L%set_value(century,int(1+@year/100))
  44. %V%%L%set_value(non_leap_cent_correction,int(0.75*century-12))
  45. %V%%L%set_value(moon_correction,int((8*century+5)/25-5))
  46. %V%%L%set_value(find_sunday,int(1.25*@year))
  47. %V%%L%if(@year>julian_to_gregorian,set_value(find_sunday,int(find_sunday-non_leap_cent_correction-10)),)
  48.  
  49. %V%%L%set_value(epact,mod(11*golden+20+moon_correction-non_leap_cent_correction,30))
  50. %V%%L%if(epact=24&golden>11,set_value(epact,epact+1),)
  51. %V%%L%if(epact=24,set_value(epact,epact+1),)
  52. %V%%L%if(@year>julian_to_gregorian,,set_value(epact,1+mod(11*golden-4,30)))
  53.  
  54. %V%%L%set_value(full_moon,44-epact)
  55. %V%%L%if(full_moon<21,set_value(full_moon,full_moon+30),)
  56. %V%%L%set_value(easter_day,full_moon+7-mod(find_sunday+full_moon,7))
  57. %V%%L%if(easter_day>31,set_value(easter_day,easter_day-31+0.4),set_value(easter_day,easter_day+0.3))
  58. %V%%L%set_value(easter_day,join(string(easter_day,1),".",(string(@year,0))))
  59. %V%%L%result(easter_day)
  60.  
  61.  
  62. ------------------------------------------------------------------------
  63. %CO:B,10,0%Value
  64.  
  65.  
  66.  
  67.  
  68.  
  69. %V%%R%11
  70. %V%%R%15
  71. %V%%R%0
  72. %V%%R%0
  73. %V%%R%1582
  74. %V%%R%1865
  75. %V%%R%28
  76. %V%%R%46
  77. %V%%R%%D1%"22.4.1492"
  78. %CO:C,15,0%